home *** CD-ROM | disk | FTP | other *** search
/ CD Ware Multimedia 1995 May / cd Ware (Juegos) Epimundo.iso / DOS / PRGMMING / M2PROTOS.ZIP / QCXMZERO.DEF < prev    next >
Encoding:
Modula Definition  |  1993-10-06  |  1.5 KB  |  54 lines
  1. (*# call(o_a_copy => off) *)
  2. (*%T _fcall *)
  3. (*# call(seg_name => QCxm) *)
  4. (*%E *)
  5. (*%F _fcall *)
  6. (*# call(seg_name => null) *)
  7. (*%E *)
  8. (*# module(implementation=>on) *)
  9. (*# data(seg_name => null) *)
  10. DEFINITION MODULE QCxmzero;
  11.  
  12.                      (* This JPI Modula-2 module is part of *)
  13.  
  14.                       (* QC -- a communications program *)
  15.                              (* by Carl Neiburger *)
  16.                               (* 169 N. 25th St.*)
  17.                           (* San Jose, Calif. 95116 *)
  18.  
  19.                          (* CompuServe No. 72336,2257 *)
  20.  
  21. FROM QCdisp IMPORT Telink, YModem, ProtoType;
  22. FROM NFIO IMPORT PathTail;
  23.  
  24. CONST MaxBufSize = 1032;
  25.  
  26. TYPE
  27.  
  28.     TelinkBlockType = RECORD
  29.          FileLength     : LONGCARD;
  30.          FileTime       : LONGCARD; (* MSDOS file format *)
  31.          FileName       : ARRAY [0..15] OF CHAR; (* ASCIIZ *)
  32.          Version        : SHORTCARD; (* = 0 *)
  33.          ProgramName    : ARRAY [0..15] OF CHAR; (* ASCIIZ *)
  34.     END;
  35.  
  36.     BPtr = POINTER TO ARRAY [1..MaxBufSize] OF SHORTCARD;
  37.  
  38. CreateBlockProc = PROCEDURE(ARRAY OF CHAR, VAR PathTail, VAR BPtr): CARDINAL;
  39.     (* Result zero = failure; else, result = minimum length *)
  40.  
  41. InterpretBlockProc = PROCEDURE (BPtr, VAR TelinkBlockType);
  42.  
  43. ProtoSet  = SET OF ProtoType;
  44.  
  45. CONST
  46.     ZeroBlockProtos = ProtoSet{YModem, Telink};
  47.  
  48. VAR
  49.     CreateBlock : ARRAY [YModem .. ZModem] OF CreateBlockProc;
  50.     InterpretBlock : ARRAY [YModem .. ZModem] OF InterpretBlockProc;
  51.  
  52. PROCEDURE BasicBlock(VAR b: BPtr);
  53.  
  54. END QCxmzero.